﻿Imports Microsoft.VisualBasic

Public Class DBBudgetModifySP
    Inherits DBParentStoredProcedureClass

    Public Operation As New TableField("Operation", Data.SqlDbType.NVarChar)
    Public BMID As New TableField("BMID", Data.SqlDbType.Int)
    Public BMNo As New TableField("BMNo", Data.SqlDbType.NVarChar)
    Public BMYear As New TableField("BMYear", Data.SqlDbType.Int)
    Public BMDate As New TableField("BMDate", Data.SqlDbType.DateTime)
    Public ProgramNo As New TableField("ProgramNo", Data.SqlDbType.NVarChar)
    Public AccountNo As New TableField("AccountNo", Data.SqlDbType.NVarChar)
    Public Amount As New TableField("Amount", Data.SqlDbType.Float)
    Public Remarks As New TableField("Remarks", Data.SqlDbType.NVarChar)
    Public RecordStatus As New TableField("RecordStatus", Data.SqlDbType.Int)
    Public LastUpdateBy As New TableField("LastUpdateBy", Data.SqlDbType.NVarChar)
    Public LastUpdateDate As New TableField("LastUpdateDate", Data.SqlDbType.DateTime)
    Public DeleteReason As New TableField("DeleteReason", Data.SqlDbType.NVarChar)

    Sub New()
        MyBase.StoredProcedureName = "BudgetModifySP"
    End Sub

    Public Shadows Function QueryDatabase(ByVal QueryType As SqlQueryType, _
                                 Optional ByVal Operation As String = "", _
                                 Optional ByVal BMID As String = "", _
                                 Optional ByVal BMNo As String = "", _
                                 Optional ByVal BMYear As String = "", _
                                 Optional ByVal BMDate As String = "", _
                                 Optional ByVal ProgramNo As String = "", _
                                 Optional ByVal AccountNo As String = "", _
                                 Optional ByVal Amount As String = "", _
                                 Optional ByVal Remarks As String = "", _
                                 Optional ByVal RecordStatus As String = "", _
                                 Optional ByVal LastUpdateBy As String = "", _
                                 Optional ByVal LastUpdateDate As String = "", _
                                 Optional ByVal DeleteReason As String = "") As Object

        MyBase.FieldsArrayList = New ArrayList
        Me.Operation.SetValue(Operation, MyBase.FieldsArrayList)
        Me.BMID.SetValue(BMID, MyBase.FieldsArrayList)
        Me.BMNo.SetValue(BMNo, MyBase.FieldsArrayList)
        Me.BMYear.SetValue(BMYear, MyBase.FieldsArrayList)
        Me.BMDate.SetValue(BMDate, MyBase.FieldsArrayList)
        Me.ProgramNo.SetValue(ProgramNo, MyBase.FieldsArrayList)
        Me.AccountNo.SetValue(AccountNo, MyBase.FieldsArrayList)
        Me.Amount.SetValue(Amount, MyBase.FieldsArrayList)
        Me.Remarks.SetValue(Remarks, MyBase.FieldsArrayList)
        Me.RecordStatus.SetValue(RecordStatus, MyBase.FieldsArrayList)
        Me.LastUpdateBy.SetValue(LastUpdateBy, MyBase.FieldsArrayList)
        Me.LastUpdateDate.SetValue(LastUpdateDate, MyBase.FieldsArrayList)
        Me.DeleteReason.SetValue(DeleteReason, MyBase.FieldsArrayList)

        Return MyBase.QueryDatabase(QueryType)
    End Function

End Class
